#!/bin/ksh
case $# in
    0) print "Usage: $0 [-2] <Pascal-File>  [ {function-name}+ | "_main" ] ";
       print "	One or more top-level-functions or _main (unnamed main program)";
       exit 1;;
   *) case $1 in
	-2) YAP_VERSION=2; shift; FILE=$1; shift ;;
	*)  YAP_VERSION=3; FILE=$1; shift ;;
      esac
esac

NAME=${FILE%.p.*}
NAME=${NAME%.adt.*}
BIN=`dirname $0`

AWK='/usr/bin/awk'
TR='/usr/bin/tr'
SED='/bin/sed'
TMP=/home/jura/yap/tmp

$TR 'A-Z' 'a-z' < $FILE | $SED -f "$BIN"/tokenize_PASCAL.sed | $AWK -f "$BIN"/tokenize_PASCAL.skip.awk  | $TR -c 'a-zA-Z0-9_=<>:' '\012' | $AWK -f "$BIN"/tokenize_PASCAL.procs.awk | $SED -f "$BIN"/tokenize_PASCAL.synonyms | $AWK -f $BIN/tokenize_PASCAL.awk version="$YAP_VERSION" > "$TMP"/oo
#
#cat $FILE | /usr/bin/tr 'A-Z' 'a-z' 

case $YAP_VERSION in
    2)  mv "$TMP"/oo $NAME.tokens;;
    3)  cat "$TMP"/oo | wc -l > $NAME.tokens;
        cat "$TMP"/oo >> $NAME.tokens;
        rm "$TMP"/oo;;
		
esac

chmod g+rw $NAME.tokens

cat $NAME.tokens
rm $NAME.tokens
